home *** CD-ROM | disk | FTP | other *** search
/ Amiga MA Magazine 1997 #3 / amigamamagazinepolishissue03-1 / kolekcje / ghost / wielkizegar / instaluj na hd next >
Text File  |  1997-04-09  |  3KB  |  80 lines
  1. ;--------------------- Instaler programu Wielki Zegar ---------------
  2. (
  3.    (
  4.    message ("\nInstalacja na twardy dysk programu\nWielki Zegar\n\nSystem operacyjny musi byê wczytany z twardego dysku, dopiero wtedy moûesz wîoûyê do stacji dyskietkë z programem.\n\n")
  5.    )
  6.  
  7.    ;------------ Sprawdzenie wersji systemu operacyjnego ----------------
  8.    (
  9.     (set OS_Version (/ (getversion) 65536))
  10.     (if (< OS_Version 37)
  11.         (abort 'Wymagany Workbench w wersji minimum 2.04 do instalacji programu "Wielki Zegar".')
  12.     )
  13.    )
  14.  
  15.    ;----------------- Wybranie katalogu do instalacji ------------------
  16.    (
  17.    set DESTDIR (askdir
  18.                    (prompt  ("Wybierz urzâdzenie i katalog, w którym zostanie utworzony katalog Zegar"))
  19.                    (help    ("W tym miejscu naleûy wybraê partycjë, na którâ zainstalowany zostanie katalog z programem."))
  20.                    (default ("Work:"))
  21.                 )
  22.    )
  23.  
  24.    (
  25.    if (= (exists DESTDIR) 0)
  26.       (makedir DESTDIR (infos))
  27.    )
  28.  
  29.    ;------ pobranie i sprawdzenie wielkoôci wolnego miejsca na dysku -------
  30.    (
  31.    (set SPACE (getdiskspace DESTDIR))
  32.  
  33.    (
  34.    if( < SPACE 100000)
  35.       (message ("\n\nUWAGA! Za maîo miejsca na twardym dysku, aby dokonaê instalacji!"))
  36.    )
  37.    )
  38.  
  39.    (set @default-dest DESTDIR)
  40.  
  41.    ;------------------------- Stworzenie katalogu --------------------
  42.    (makedir (tackon DESTDIR "Zegar") (infos))
  43.  
  44.    ;------------------------- Skopiowanie plików ---------------------
  45.    (
  46.    copyfiles (source "Wielki_Zegar:")
  47.              (dest (tackon DESTDIR "Zegar"))
  48.              (choices
  49.         "Time"
  50.         "TimeTest"
  51.         "Instrukcja.guide"
  52.              )
  53.              (confirm)
  54.              (prompt ("Wybierz pliki do skopiowania twardy dysk"))
  55.              (help ('Programem obsîugujâcym urzâdzenie jest plik "Time".\n"TimeTest" sîuûy do testowania i uruchamiania programatora. Jeôli urzâdzenie byîo budowane przez uûytkownika to naleûy wykorzystaê ten program.\nInstrukcja obsîugi zegara jest zawarta w pliku "Instrukcja.guide".'))
  56.          (infos)
  57.    )
  58.  
  59.    ;-------------------- Zmiana poziomu doôwiadczenia ----------------
  60.    (
  61.     (user 2)
  62.    )
  63.  
  64.    ;---------------------- Skopiowanie bibliotek ---------------------
  65.    (
  66.    copylib (source "Wielki_Zegar:Libs/Reqtools.library")
  67.            (dest "Libs:")
  68.            (confirm)
  69.            (prompt ('Kopiowanie biblioteki "ReqTools" na twardy dysk'))
  70.            (help ('Biblioteka "ReqTools" jest niezbëdna do uruchomienia programu obsîugujâcego urzâdzenie.'))
  71.    )
  72.    (
  73.    copylib (source "Wielki_Zegar:Libs/Gadtools.library")
  74.            (dest "Libs:")
  75.            (confirm)
  76.            (prompt ('Kopiowanie biblioteki "GadTools" na twardy dysk'))
  77.            (help ('Biblioteka "GadTools" jest niezbëdna do uruchomienia programu obsîugujâcego urzâdzenie.'))
  78.    )
  79. )
  80.